The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwlbel.dir/00161_Script_161

Text File | 1994-11-15 | 4KB | 155 lines

on startMovie
  cursor 4
  global currMM
  set currMM = "FLWWT"

  preLoadCast 18,19

  puppetSprite 21, TRUE
  puppetSprite 22, TRUE
  puppetSprite 23, TRUE
  puppetSprite 2, TRUE
  set the immediate of sprite 23 to TRUE
  set the stretch of sprite 23 to FALSE
end startMovie

on saveLocals
  global lastMovie, lastFrame, nowFrame
  set lastFrame = nowFrame
  set lastMovie = "FLWLbel"
end saveLocals

on buttonState
  global FrankNav, bFlag

  if rollover(11) or rollover(12) then
    set the castNum of sprite 2 to 1090
    if the mouseDown then
      set the castNum of sprite 2 to 1091
    end if
  else
    set the castNum of sprite 2 to 1089
  end if

  rollCheck
  if (the mouseV > 400) or (bFlag = TRUE) then
    doState
  end if
end buttonState

on rollCheck
  global right, left, forw, down, pos, floor
  if the mouseH>=257 and the mouseH<=347 and the mouseV>67 and the mouseV<307 then
    if right = 1 then
      set pos = 3
      cursor [1065,1066]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  else if the mouseH>=27 and the mouseH<=119 and the mouseV>67 and the mouseV<307 then
    if left = 1 then
      set pos = 1
      cursor [1069,1070]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  else if the mouseH>=117 and the mouseH<=257 and the mouseV>67 and the mousev<217 then
    if forw = 1 then
      set pos = 2
      cursor [1067,1068]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  else if the mouseH>=117 and the mouseH<=257 and the mouseV>217 and the mouseV<307 then
    if down = 1 then
      set pos = 4
      cursor [1073,1074]
    else if down = 0 and forw = 1 then
      set pos = 2
      cursor [1067,1068]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  else
    set pos = 0
    cursor -1
  end if

  if the mouseH>334 and the mouseH<362 then
    if the mouseV>111 and the mouseV<128 and floor<>5 then
      set pos = 5
      set the castNum of sprite 6 to 8
    else if the mouseV>173 and the mouseV<190 and floor<>3 then
      set pos = 6
      set the castNum of sprite 6 to 7
    else if the mouseV>233 and the mouseV<250 and floor<>1 then
      set pos = 7
      set the castNum of sprite 6 to 6
    else
      set the castNum of sprite 6 to 5
    end if
  else
    set the castNum of sprite 6 to 5
  end if
end rollCheck

on FloorOne
  global pos, cont
  if pos = 5 then
    set the CastNum of sprite 6 to 12
    set cont = 1
    cursor 4
    go to frame "lbele000001n°°"
  else if pos = 6 then
    set the CastNum of sprite 6 to 11
    set cont = 0
    cursor 4
    go to frame "lbele000001n°°"
  end if
end FloorOne

on FloorThree
  global pos, cont
  if pos = 5 then
    set the CastNum of sprite 6 to 12
    cursor 4
    go to frame "lbele000004n°°"
  else if pos = 7 then
    set the CastNum of sprite 6 to 10
    set cont = 0
    cursor 4
    go to "lbele000002n°°"
    repeat with i = 1 to 44
      go to the frame - 1
      unLoadCast 27,136
    end repeat
  end if
end FloorThree

on FloorFive
  global pos, cont
  if pos = 7 then
    set the CastNum of sprite 6 to 10
    set cont = 1
    cursor 4
    go to "lbele000005n°°"
    repeat with i = 1 to 83
      go to the frame - 1
      unLoadCast 27,136
    end repeat
  else if pos = 6 then
    set the CastNum of sprite 6 to 11
    cursor 4
    set cont = 0
    go to "lbele000005n°°"
    repeat with i = 1 to 38
      go to the frame - 1
      unLoadCast 27,136
    end repeat
  end if
end FloorFive